home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8410.arc / MYSUBS.ASM < prev    next >
Assembly Source File  |  1986-09-14  |  3KB  |  98 lines
  1. PAGE 58,132 
  2. TITLE MYSUBS -- example BASIC-callable subroutine image 
  3. NAME MYSUBS 
  4. COMMENT * 
  5.  
  6. This program may be freely copied and distributed.  The author 
  7. assumes no responsibility for its use or reliability. 
  8.  
  9. This program defines the dispatch table and entry points for 
  10. BASIC-callable subroutines.  The subroutine image is created 
  11. with the following commands: 
  12.  
  13.     MASM MYSUBS,MYSUBS,MYSUBS; 
  14.     LINK MYSUBS,,; 
  15.  
  16. Written 4/15/84 by Ron Bauman 
  17.  
  18. * 
  19. ; 
  20. CSEG    SEGMENT BYTE PUBLIC 'CODE' 
  21.     ASSUME    CS:CSEG 
  22. ; 
  23. DATA    SEGMENT    WORD PUBLIC 'DATA' 
  24. ; 
  25. ;  define message strings 
  26. ; 
  27. ERRMSG    DB '   Invalid subroutine call.',13,10,'$' 
  28. MSG1    DB '   Subroutine 1 executed.',13,10,'$' 
  29. MSG2    DB '   Subroutine 2 executed.',13,10,'$' 
  30. ; 
  31. DATA    ENDS 
  32. ; 
  33. ; Define the dispatch table.  The order of entries in this table must 
  34. ; correspond exactly with the order of name offset definitions in the 
  35. ; user's BASIC program.  Note that it must appear at location 0 in the  
  36. ; subroutine image.  This also means its segment must be defined first 
  37. ; to the linker. 
  38. ; 
  39. MAIN    PROC    NEAR 
  40. ; 
  41.     JMP    NEAR PTR CALLERR 
  42.                 ;error entry. catches improperly defined 
  43.                 ;offsets in user's program. 
  44.     JMP    NEAR PTR SUB1
  45.     JMP    NEAR PTR SUB2
  46. ; 
  47. MAIN    ENDP 
  48. ; 
  49. ; CALLable subroutines definition 
  50. ; 
  51. SUB1    PROC    FAR        ;subroutine 1 
  52. ; 
  53.     PUSH    DS        ;save BASIC's data space address 
  54.     MOV    AX,SEG DATA    ;get our data segment 
  55.     MOV    DS,AX 
  56.     ASSUME    DS:DATA 
  57.     MOV    DX,OFFSET MSG1    ;set up pointer to message 1 
  58.     MOV    AH,9H        ;print the string to standard output 
  59.     INT    21H 
  60.     POP    DS 
  61.     RET 
  62. SUB1    ENDP 
  63. ; 
  64. SUB2    PROC    FAR        ;subroutine 2 
  65. ; 
  66.     PUSH    DS        ;save BASIC's data space address 
  67.     MOV    AX,SEG DATA    ;get our data segment 
  68.     MOV    DS,AX 
  69.     ASSUME    DS:DATA 
  70.     MOV    DX,OFFSET MSG2    ;set up pointer to message 2 
  71.     MOV    AH,9H        ;print the string to standard output 
  72.     INT    21H 
  73.     POP    DS 
  74.     RET 
  75. SUB2    ENDP 
  76. ; 
  77. ; The following routine catches calls to this image with an incorrectly 
  78. ; assigned offset.  The usual case is that the user has mistyped the 
  79. ; subroutine name, BASIC thought it was a new variable and assigned 
  80. ; zero to it. 
  81. ; 
  82. CALLERR    PROC    FAR        ;subroutine 1 
  83. ; 
  84.     PUSH    DS        ;save BASIC's data space address 
  85.     MOV    AX,SEG DATA    ;get our data segment 
  86.     MOV    DS,AX 
  87.     ASSUME    DS:DATA 
  88.     MOV    DX,OFFSET ERRMSG 
  89.                 ;set up pointer to our message 
  90.     MOV    AH,9H        ;print the string to standard output 
  91.     INT    21H 
  92.     POP    DS 
  93.     RET 
  94. CALLERR    ENDP 
  95. ; 
  96. CSEG    ENDS 
  97.     END 
  98.